home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / MacPerl / MakeAliases < prev    next >
Text File  |  1993-07-16  |  799b  |  36 lines
  1. Perl -Sx "{0}" {"Parameters"}; Exit
  2.  
  3. #!/usr/local/bin/perl
  4. #######################################################################
  5. #    Project    :    MacPerl
  6. #    Author    :    Matthias Neeracher
  7. #    Started    :    08Sep92                                Language    :    Perl
  8. #    Modified    :    21Nov92    MN    Consider externals
  9. #    Last        :    21Nov92
  10. #######################################################################
  11.  
  12. open(ALIAS, "Aliases")         || die "Can't open file \"Aliases\"";
  13. open(DF,     ">Alias.df")    || die "Can't open file \"Alias.df\"";
  14. open(RN,        ">Alias.rn")    || die "Can't open file \"Alias.rn\"";
  15.  
  16. while (<ALIAS>)    {
  17.     if (/(\S+)\s+(\S+)/) {
  18.         $Alias{$1} = $2;
  19.     
  20.         print RN  "   -rn $1=$2\n" unless ($1 eq $2);
  21.     }
  22. }
  23.  
  24. close ALIAS;
  25.  
  26. while (<>)    {
  27.     if (/^(\S+).*\$/ || /EP=(\S+)/) {
  28.         unless ($Alias{$1}) {
  29.             print DF "$1\n";
  30.         }
  31.     }
  32. }
  33.  
  34. close DF;
  35. close RN;
  36.